home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / chaosgrd.scp < prev    next >
Text File  |  1994-12-08  |  11KB  |  420 lines
  1. // ***GUARD ROOM CAMERAS***
  2.  
  3. { GRD_LOAD
  4.     
  5.     I  ^çì              = 0 THEN 
  6.         {
  7.         @Çì      RADIO_CROSSTALK
  8.         }
  9.  
  10.     // IF I WALK INTO THIS ROOM AND THE USEBOT IS IN HERE AND IS IN
  11.     //   AUTOMATIC MODE, THEN ACTIVATE IT
  12.     //IF @SETCURRENTFIGURE(USE_BOT) AND @ISMONITORRUNNING() = _FALSE THEN
  13.     //    {
  14.     //    IF @AMINEXTENT(CURFIG,GRD) AND _USE_BOT_ACTIVATED = 0 THEN
  15.     //        {
  16.     //        MOTION ACTIVATE CONTINUE
  17.     //        TURNTOENEMY
  18.     //        SPARWITHPLAYER
  19.     //
  20.     //        :KEEP_TURNING
  21.     //        SUSPEND
  22.     //        IF @ISMYMOTION( ACTIVATE ) THEN JUMP KEEP_TURNING
  23.     //        AI ON
  24.     //        }
  25.     //    ELSE
  26.     //        SPARWITHPLAYER
  27.     //    }
  28.  
  29.     I  @Ç¢              (USE_BOT) THEN
  30.         ┬             
  31. }
  32.  
  33. { GRD1_LOAD
  34.     
  35.     I  @Çû             (^êë   ) THEN         (^êë   )
  36.     I  @Çû             (^êç     ) THEN         (^êç     )
  37.     I  @Çû             (^êì   ) THEN         (^êì   )                
  38.     
  39.     N      ^êà           
  40.         {
  41.         U    0
  42.             
  43.             ^ê╗          = 50
  44.             ^êô      = 50
  45.             I  @Çó            (^êÇ                ) = $Ç╗    THEN
  46.                 ^êÇ                 = @Çì     (KLAXON_BUTTON_OFF)        
  47.             X ÇÇ 
  48.         U    1
  49.             ^êô      = 100
  50.             I  @Çó            (^ç┐               ) = $Ç╗    THEN
  51.                 ^ç┐                = @Çì     (KLAXON_BUTTON_ON)        
  52.         }        
  53.         
  54.     ^åÿ        = 1
  55. }
  56.  
  57. { GRD2_LOAD
  58.     
  59.     I  @Çû             (^êë   ) THEN         (^êë   )
  60.     I  @Çû             (^êç     ) THEN         (^êç     )
  61.     I  @Çû             (^êì   ) THEN         (^êì   )                
  62.     
  63.     N      ^êà           
  64.         {
  65.         U    0
  66.             ^ê╝          = 70
  67.             ^êô      = 70
  68.             X Çü 
  69.         U    1
  70.             ^êô      = 100
  71.         }        
  72.     ^åÿ        = 1
  73. }
  74.  
  75. { GRD3_LOAD
  76.     
  77.     I  @Çû             (^êë   ) THEN         (^êë   )
  78.     I  @Çû             (^êç     ) THEN         (^êç     )
  79.     I  @Çû             (^êì   ) THEN         (^êì   )                
  80.     
  81.     N      ^êà           
  82.         {
  83.         U    0
  84.             ^ê╜          = 50
  85.             ^êô      = 50
  86.             X Çé 
  87.         U    1
  88.             ^êô      = 100
  89.         }        
  90.     ^åÿ        = 1
  91. }
  92.  
  93. { GRD4_LOAD
  94.     
  95.     I  @Çû             (^êë   ) THEN         (^êë   )
  96.     I  @Çû             (^êç     ) THEN         (^êç     )
  97.     I  @Çû             (^êì   ) THEN         (^êì   )                
  98.     
  99.     N      ^êà           
  100.         {
  101.         U    0
  102.             ^ê╛          = 50
  103.             ^êô      = 50
  104.             X Çâ 
  105.         U    1
  106.             ^êô      = 100
  107.         }        
  108.     ^åÿ        = 1
  109. }
  110.  
  111.  
  112. // *** TRIGGER/PROCESSES ***
  113.  
  114. { HAND_DOOR_SOUND
  115.     I  @ÇÄ             (HAL) THEN
  116.         {
  117.         ^êç      = @Çç     (`ô«             )
  118.         @Çî                  (^êç     , 0, 80, 30)
  119.         }
  120.     @Çå    `üé      
  121. }
  122.  
  123.  
  124. { HANDDOORSOUNDCLOSE
  125.     I  @ÇÄ             (HAL) THEN
  126.         {
  127.                 (^êç     )
  128.         ^êç      = @Çç     (`ô«             , 150)
  129.         @Çî                  (^êç     , 80, 0, 30)
  130.         }
  131.     @Çå    `üé      
  132. }
  133.  
  134.  
  135.  
  136. {  CEL_MON1_USE
  137.  
  138.     ^Ç┤              ++
  139.     //GO C_MN1LOC WALK 10
  140.     £    C_MN1LOC GRADUAL
  141.     M      LOOK_AT_MON FREEZE
  142.     @Ç¥   GR_CELLBLOCKDATAMONITOR
  143.     M      STAND CONTINUE
  144.     ^Ç┤              --
  145.  
  146. }
  147.  
  148.  
  149. // THIS IS THE AUTOMATIC DOOR FROM THE GUARD ROOM TO THE HALLWAY.
  150. { OPENDR6
  151.     //IF @COMPASS IN -90,90 THEN JUMP AUTOOPEN
  152.  
  153.     I  ^䥠       = $é║       OR ^å«              = 1 THEN é     
  154.  
  155.     //CAMERA GRD3
  156.  
  157.     @Çì      HAND_DOOR_OPEN
  158.  
  159.     // HERE WE HAVE OUR AUTO-DOOR CLOSING CODE -BES
  160.     :TOP
  161.     â      
  162.     I  @Ǽ            (CURFIG,DR6) < 300 THEN J    #Çë
  163.  
  164.     @Çì      HAND_DOOR_CLOSE
  165.  
  166.     //:KEEPWAITING
  167.     //SUSPEND
  168.     //IF _HAND_DOOR_IN_OP THEN JUMP KEEPWAITING
  169.     //CAMERA UNLOCK
  170. }
  171.  
  172. { CLOSEDR6
  173.     //IF @COMPASS NOTIN -90,90 THEN JUMP AUTOOPEN
  174.  
  175.     I  ^䥠       = $é╗       THEN é     
  176.     @Çì      HAND_DOOR_CLOSE
  177. }
  178.  
  179. { KLAXON_USE
  180.     
  181.     // CHECK TO SEE HOW LEX IS ORRIENTED - IF HE'S IN THE TRIGGER BOX
  182.     // BUT OFF TO ONE SIDE TOO MUCH, WE TURN HIM, THEN HIT THE BUTTON - JT
  183.     @Ç¢               PLAYER
  184.     I  @Ç╗                 CURFIG KLAX_PT > 20 THEN
  185.         {
  186.         G  KLAX_PT WALK 10
  187.         G  KLAX_PT
  188.         }
  189.     E   
  190.         G  KLAX_PT
  191.  
  192.     £    -178 GRADUAL
  193.     £    -178
  194.     M      PUSH_BUTTON CONTINUE
  195.     W    15
  196.     I  ^êà            = 1 THEN 
  197.         {
  198.         ^êà            = 0
  199.         @Çå    (`Çì          , 150, 1024)
  200.         ^ê╗          = 0
  201.         ^ê╝          = 0
  202.         ^ê╜          = 0
  203.         ^ê╛          = 0
  204.         ^ê┐          = 0                
  205.         I  @Çó            (^êÇ                ) = $Ç╗    THEN
  206.             ^êÇ                 = @Çì      KLAXON_BUTTON_OFF 
  207.         ^êô      = 50
  208.         }
  209.     E   
  210.         {
  211.         ^êà            = 1
  212.         @Çå    (`Çì          , 150, 1024)
  213.                   (^êë   )
  214.         ^ê╗          = 100
  215.         ^ê╝          = 100
  216.         ^ê╜          = 100
  217.         ^ê╛          = 100
  218.         ^ê┐          = 100                
  219.         ä           `Ǫ         
  220.         ä           `ô«             
  221.         ^ç┐                = @Çì      KLAXON_BUTTON_ON
  222.         }
  223. }
  224.  
  225.  
  226. // ANIMATES ENERGY CELL OR WHATEVER IT IS IN THE GUARD ROOM
  227. [     ANIMGUARD
  228.     
  229.     ó               GRD2 
  230.  
  231.     :GUARDLOOP
  232.     00:00 ^éê        = 1
  233.     00:02 ^éê        = 2
  234.     00:04 ^éê        = 3
  235.     00:06 ^éê        = 4
  236.     00:08 ^éê        = 5
  237.     00:09 ò            
  238.           J    #Çì      
  239. ]
  240.  
  241. // ANIMATES KLAXON BUTTON WHEN KLAXON IS ON
  242. [ KLAXON_BUTTON_ON
  243.  
  244.     ó               GRD1 
  245.     
  246.                ^êÇ                
  247.     
  248.     :KLAXONONLOOP
  249.  
  250.     00:00 ^éù         = 0
  251.     00:02 ^éù         = 1
  252.     00:04 ^éù         = 2
  253.     00:05 ò            
  254.           J    #ÇÅ         
  255. ]        
  256.  
  257. // ANIMATES KLAXON BUTTON WHEN KLAXON IS OFF
  258. [ KLAXON_BUTTON_OFF
  259.  
  260.     ó               GRD1 
  261.  
  262.                ^ç┐               
  263.     
  264.     ^êë    = @Çç     (`Çê         ,50)
  265.                (`Ǫ         ,`Çê         )
  266.                (`ô«             ,`Çê         )
  267.     
  268.     
  269.     :KLAXONOFFLOOP
  270.     00:00 ^éù         = 3
  271.     00:02 ^éù         = 4
  272.     00:04 ^éù         = 5
  273.     00:05 ò            
  274.           J    #Çæ          
  275. ]        
  276.  
  277. { RADIO_CROSSTALK
  278.  
  279.     P        ~ÇÇ  
  280.     P        ~Çü    
  281.     
  282.     ^çì              = 1
  283.     
  284.     // TURN DOWN THE AMBIENT VOLUME
  285.     @Çì      TURN_DOWN_KLAXON
  286.     
  287.     ~ÇÇ   = @Çà    (2,5) 
  288.     
  289.     W    ~ÇÇ   SECONDS
  290.                 @Ç║       `é₧                     $Ç╛      "This is Control to Marine Dropship Roenick. /FIci, Contrôle de Vaisseau Marin Roenick. /GKommandozentrale an Marineschiff Roenick."
  291.                 @Ç║       `ଠ                    $Ç╛      "Landing platform is in position. /FPlateforme d'atterrissage en position. /GLandeplattform in Position."
  292.                 @Ç║       `འ                    $Ç╛      "You are cleared to land, Roenick. /FPrêt pour l'atterrissage, Roenick. /GSie haben Landeerlaubnis, Roenick."                                    
  293.     W    1 SECOND
  294.                 @Ç║       `éí                  $Ç┐       "This is Marine Dropship Roenick.~Now making final approach. /FIci, Vaisseau Marin Roenick.~Approche finale. /GMarineschiff Roenick an Kommandozentrale.~Beginnen Landeanflug."
  295.                 @Ç║       `éó                  $Ç╜      "Marine Dropship Chelios standing by. /FVaisseau Marin Chelios en attente. /GMarineschiff Chelios wartet."
  296.  
  297.     W    ~ÇÇ   SECONDS
  298.                 @Ç║       `郠                    $Ç╛      "You guys better hurry! /FVous feriez mieux de vous dépêcher! /GBeeilt euch gefälligst!"
  299.                 @Ç║       `éá                     $Ç╛      "Another prisoner has escaped! /FUn autre prisonnier s'est évadé! /GNoch ein Gefangener ist ausgebrochen!"
  300.                 @Ç║       `༠                    $Ç╛      "I'm looking at him on the monitor now! /FJe le vois maintenant sur le moniteur! /GIch kann ihn auf dem Bildschirm sehen!"
  301.                 @Ç║       `à¡                     $Ç╛      "He's in the Guard Room! /FIl est dans la Salle de Garde! /GEr ist im Wachraum!"
  302.                 @Ç║       `éú                  $üü       "He must not reach the excavation site! /FIl ne faut pas qu'il atteigne le site d'excavation!French /GEr darf die Ausgrabungen nicht erreichen!"
  303.  
  304.     W    1 SECOND
  305.                 @Ç║       `éñ                      $Ç┐       "Sit tight, we're almost there. /FCalmez-vous, on y est presque. /GImmer mit der Ruhe! Wir sind gleich da."
  306.     // @@@ I MIGHT HAVE CHOPPED OFF A PIECE OF THE FRENCH - JT
  307.                 @Ç║       `éÑ                      $Ç┐       "And we're bringing a little extra firepower~to deal with your escaped prisoner. /FEt on apporte un peu plus de poudre,~pour s'occuper de votre év
  308.         /GUnd wir haben ein paar extra Waffen mitgebracht,~um mit eurem ausgebrochenen Gefangenen fertigzuwerden."
  309.                 @Ç║       `à│                      $Ç┐       "He's gonna be no trouble at all./FIl ne va poser aucun problème./GEr wird uns keine Schwierigkeiten machen."
  310.     
  311.     //  TURN UP THE AMBIENT VOLUME
  312.     @Çì      TURN_UP_KLAXON
  313.     
  314.     i           LEX RADIOREF
  315.  
  316.     // KILL THE PROCESS
  317.     @Çì      KILLRADIO
  318. }
  319.  
  320. { TURN_DOWN_KLAXON
  321.  
  322.     ^ê╗          = ^ê╗          / 3
  323.     ^ê╝          = ^ê╝          / 3
  324.     ^ê╜          = ^ê╜          / 3
  325.     ^ê╛          = ^ê╛          / 3
  326.     ^ê┐          = ^ê┐          / 3
  327. }
  328.  
  329. { TURN_UP_KLAXON
  330.  
  331.     ^ê╗          = ^ê╗          * 3
  332.     ^ê╝          = ^ê╝          * 3
  333.     ^ê╜          = ^ê╜          * 3
  334.     ^ê╛          = ^ê╛          * 3
  335.     ^ê┐          = ^ê┐          * 3
  336. }
  337.  
  338. // KILLING PROCESS
  339. { KILLRADIO
  340.     :KILL
  341.     â      
  342.     I  @Çó            (^çì             ) THEN J    #Çû 
  343.     E               ^çì             
  344. }
  345.  
  346.  
  347. // *** REAL-TIME PROCESSES ***
  348.  
  349. [ HAND_DOOR_OPEN
  350.     
  351.     I  ^䥠       = $é║       THEN é     
  352.     
  353.     00:00   ^Çó            = 1
  354.     00:01   @Ç¥   ( HAND_DOOR_SOUND )
  355.     00:02   ^Çó            = 2
  356.     00:04   ^Çó            = 3
  357.     00:06   ^Çó            = 4
  358.              I  @Ç¢              (USE_BOT) THEN
  359.              {
  360.             Y                 CE11 CE12 CE21 CE22 CE23 CE24 CE31 CE32 CE33
  361.                           CE41 CE42 CE43
  362.                           BLK1 BLK2 BLK3 BLK4 BLK5 BLK6 BLK7
  363.                           GRD1 GRD2 GRD3 GRD4 HAL1
  364.             @Ç¥   NURSEBOT_WOUNDS
  365.             }
  366.     00:09   ^Çó            = 5
  367.     00:11   ^Çó            = 6
  368.     00:13   ^Çó            = 7
  369.     00:15   ^Çó            = 8
  370.     00:17   ^Çó            = 9
  371.     00:19   ^Çó            = 10
  372.     00:21   ^Çó            = 11
  373.     00:22   ^Çó            = 12
  374.     00:24   ^Çó            = 13
  375.     00:26   ^Çó            = 14
  376.     00:28   ^Çó            = 15
  377.     01:00   ^Çó            = 16
  378.     01:02   ^Çó            = 0
  379.         ^å«              = 0
  380.         ^䥠       = $é║      
  381.  
  382. ]
  383.  
  384. [ HAND_DOOR_CLOSE
  385.  
  386.       I  ^䥠       = $é╗       THEN é     
  387.  
  388.     00:01   @Ç¥   ( HANDDOORSOUNDCLOSE )
  389.     00:01   ^Çó          =   0
  390.     00:02   ^Çó          =   16
  391.     00:04   ^Çó          =   15
  392.     00:06   ^Çó          =   14
  393.         @Ç¢               PLAYER 
  394.         I  @Ç¡         CURFIG HL1 THEN
  395.             {
  396.             I  @Ç¢              (USE_BOT) THEN
  397.                 Y                 BLK1
  398.             }
  399.     00:08   ^Çó          =   13
  400.     00:10   ^Çó          =   12
  401.     00:12   ^Çó          =   11
  402.     00:14   ^Çó          =   10
  403.     00:16   ^Çó          =   9
  404.     00:18   ^Çó          =   8
  405.     00:20   ^Çó          =   7
  406.     00:22   ^Çó          =   6
  407.     00:24   ^Çó          =   5
  408.     00:26   ^Çó          =   4
  409.     00:28   ^Çó          =   3
  410.     01:00   ^Çó          =   2
  411.     01:02   ^Çó          =   1
  412.     01:03           (^êç     )
  413.     01:04   @Çå             `üà   
  414.         ^å«              = 0
  415.         ^䥠       = $é╗      
  416.  
  417. ]
  418.  
  419. //$ 26 - version number
  420.